home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / date / adpbedit.int < prev    next >
Text File  |  1996-04-08  |  2KB  |  78 lines
  1. {$G+,X+,F+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                  ADPBEDIT.PAS 1.01                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit AdPBEdit;
  13.   {-Phone book editor}
  14.  
  15. interface
  16.  
  17. uses
  18.   SysUtils, WinTypes, WinProcs, Messages,
  19.   Classes, Graphics, Controls,
  20.   Forms, Dialogs, StdCtrls, Buttons,
  21.   AdPBook, ExtCtrls, Grids, AdPEntry,
  22.   AdExcept, OoMisc;
  23.  
  24. type
  25.   {form for editing phonebooks}
  26.   {.Z+}
  27.   TPhonebookForm = class(TForm)
  28.     AddBtn: TBitBtn;
  29.     ChangeBtn: TBitBtn;
  30.     RemoveBtn: TBitBtn;
  31.     HelpBtn: TBitBtn;
  32.     OkBtn: TBitBtn;
  33.     ListGrid: TDrawGrid;
  34.     ListHeader: THeader;
  35.     procedure ListGridDrawCell( Sender : TObject ; Col, Row : Longint;
  36.                                 Rect : TRect; State : TGridDrawState );
  37.     procedure FormCreate(Sender: TObject);
  38.     procedure HeaderSized(Sender: TObject; ASection, AWidth: Integer);
  39.     procedure AddBtnClick(Sender: TObject);
  40.     procedure ChangeBtnClick(Sender: TObject);
  41.     procedure RemoveBtnClick(Sender: TObject);
  42.     procedure ListGridDblClick(Sender: TObject);
  43.  
  44.   protected
  45.     LeftEdge  : Word;
  46.     Items     : TList;
  47.     Phonebook : TApdPhonebook;
  48.  
  49.     procedure ResizeGridColumns;
  50.       {-Change the widths of the grid columns to match the header sections}
  51.     procedure EditPrim;
  52.       {-Edit the currently selected record}
  53.  
  54.   public
  55.     constructor Create(const AOwner : TComponent; const PB : TApdPhonebook);
  56.     destructor Destroy; virtual;
  57.   end;
  58.   {.Z-}
  59.  
  60.   {component for editing phonebooks}
  61.   TApdPhonebookEditor = class(TCommonDialog)
  62.   protected {private}
  63.     {.Z+}
  64.     FPhonebook : TApdPhonebook;
  65.  
  66.     procedure Notification(AComponent : TComponent; Operation : TOperation); override;
  67.  
  68.   public
  69.     constructor Create(AOwner : TComponent); override;
  70.     {.Z-}
  71.     procedure Execute;
  72.  
  73.   published
  74.     property Phonebook : TApdPhonebook
  75.       read FPhonebook write FPhonebook;
  76.   end;
  77.  
  78.